home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Meat & Conversation / background_20046.txt < prev    next >
Text File  |  1992-02-09  |  3KB  |  127 lines
  1. -- background: 20046 from stack: in
  2. -- bmap block id: 25049
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: MusicBkgnd
  6. ----- HyperTalk script -----
  7. on openCard
  8.   do "MakeNoise" &random(4)
  9. end openCard
  10.  
  11. on closeCard
  12.   play stop
  13. end closeCard
  14.  
  15. on MakeNoise1
  16.   put "G4e,Ge,re,Gq,Ge,Ge,Ge,Ae,Ge,Ae,A4q,Ae,Ge,Ae,Ae,C5e,A4e,C5e,D5e,F5e,G5e,A5q" into MCNoteList
  17.   repeat with i = 1 to number of items of MCNoteList
  18.     play "Ray" (item (random(number of items of MCNoteList)) of MCNotelist)
  19.   end repeat
  20.   play "Ray" A5q
  21.   if the sound is "done" then
  22.     play stop
  23.   end if
  24. end MakeNoise1
  25.  
  26. on MakeNoise2
  27.   play "Ray" "G4e G re Gq Ge G G A G A  A4q Ae G A A C5 A4 C5 D F G Aq"
  28.   if the sound is "Done" then
  29.     play stop
  30.   end if
  31. end MakeNoise2
  32.  
  33. on MakeNoise3
  34.   put "G4e,Ge,re,Gq,Ge,Ge,Ge,Ae,Ge,Ae,A4q,Ae,Ge,Ae,Ae,C5e,A4e,C5e,D5e,F5e,G5e,A5q" into MCNoteList
  35.   repeat with i = 1 to number of items of MCNoteList
  36.     if mouse() is not "down" then
  37.       play "Ray" (item i of MCNotelist)
  38.     else
  39.       play stop
  40.       exit repeat
  41.     end if
  42.   end repeat
  43.   if the sound is "done" then
  44.     play stop
  45.   end if
  46. end MakeNoise3
  47.  
  48. on MakeNoise4
  49.   put "G4e,Ge,re,Gq,Ge,Ge,Ge,Ae,Ge,Ae,A4q,Ae,Ge,Ae,Ae,C5e,A4e,C5e,D5e,F5e,G5e,A5q" into MCNoteList
  50.   repeat with i = 1 to number of items of MCNoteList
  51.     if mouse() is not "down" then
  52.       play "Ray" (item (random(number of items of MCNoteList)) of MCNotelist)
  53.       wait until the sound is "done"
  54.     else
  55.       play stop
  56.       exit repeat
  57.     end if
  58.   end repeat
  59.   play "Ray" A5q
  60.   if the sound is "done" then
  61.     play stop
  62.   end if
  63. end MakeNoise4
  64.  
  65.  
  66.  
  67. -- part 1 (field)
  68. -- low flags: 01
  69. -- high flags: 0000
  70. -- rect: left=12 top=12 right=322 bottom=249
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 216
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 14
  78. -- part name: Description
  79.  
  80.  
  81. -- part 2 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=268 top=12 right=307 bottom=500
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 216
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 13
  92. -- part name: Description
  93.  
  94.  
  95. -- part 3 (field)
  96. -- low flags: 81
  97. -- high flags: 2004
  98. -- rect: left=263 top=201 right=254 bottom=506
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 216
  103. -- text size: 14
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: yippee
  107.  
  108.  
  109. -- part 7 (button)
  110. -- low flags: 00
  111. -- high flags: A004
  112. -- rect: left=278 top=287 right=312 bottom=372
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 9
  117. -- text size: 12
  118. -- style flags: 256
  119. -- line height: 16
  120. -- part name: I'm Sorry.
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   cleanScreen
  124.   visual scroll right
  125.   pop cd
  126. end mouseUp
  127.